﻿Imports System.Data.OleDb
Public Class DataProvider

    Shared Function ConnectionData() As OleDbConnection
        Dim cn As OleDbConnection = New OleDbConnection()
        cn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=Cafe-to-go.mdb"
        cn.Open()
        Return cn
    End Function

End Class